Tux Racer/Tux Racer.iso/program files/Sunspire Studios/Tux Racer/characters/tux/models.tcl

Text File | 2001-10-10 | 227 b | 8 lines

objcreate {s_container} $shared_root:models

foreach model [glob -nocomplain *.obj.strip] {
    regexp {(.*)\.obj\.strip} $model dummy name
    objcreate {s_model_obj} $shared_root:models:$name \
        -filename $model
}